home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MISC / TEXX_FOL / PROFILE.EXE next >
Text File  |  1992-06-21  |  361b  |  13 lines
  1. /* Profile.exec */
  2. say 'Profile.exec';
  3. address finder;
  4. if rc <> 0 then   /* Address failed, inform user */
  5.      say 'Profile.exec -- Address finder failed';
  6. else
  7. do   /* Address successfull, empty the trash */
  8.         empty trash;
  9.      if rc <> 0 then
  10.          say 'Profile.exec -- Empty Trash failed';
  11. end;
  12. /* add other commands here */
  13. say 'End of Profile.exec';